home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ForCLI / MyFont.lha / MyFont / MyFont.install < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.9 KB  |  53 lines
  1. ; $VER: Install_MyFont 37.1 (19.2.1994)
  2. ;
  3. ; Install script for MyFont
  4. ;
  5. ; Distributed as a part of the MyFont archive.
  6. ; MyFont is Copyright (C) 1994 by Jan Skypala
  7. ; All righs reseredved
  8.  
  9. (set @default-dest "")
  10. (set old_level @user-level)
  11.  
  12. (set MyFont                      "MyFont")
  13.  
  14. (set #targetstr                  "In which directory should MyFont be installed?")
  15. (set #targetsel             (cat "\nPlease select the directory or partition in which you would like "
  16.                                  "MyFonts installed\n\nClick PROCEED to start the installation process.\n\n"
  17.                                  @askdir-help))
  18. (set #copying-MyFont             "Copying MyFont...")
  19. (set #fixing-ss                  "Correcting User-Startup file...")
  20. (set #startup-help          (cat "If User-Startup file will be changed MyFonts will be started every "
  21.                                  "time you boot so all programs will use new font instead of topaz.\n\n"
  22.                                  "Two things will happen:\n\n"
  23.                                  "· The Installer will check if your startup-sequence\n"
  24.                                  "  executes the file S:User-Startup, and will modify\n"
  25.                                  "  it to do so, if necessary.\n\n"
  26.                                  "· The Installer will look through the S:User-Startup\n"
  27.                                  "  file and insert the correct MyFont statements\n"
  28.                                  "  where appropriate.\n\n"
  29.                                  @startup-help))
  30.  
  31. (set @target-dir
  32.       (askdir
  33.              (prompt #targetstr)
  34.              (help #targetsel @askdir-help)
  35.              (default "C:")
  36.       )
  37. )
  38.  
  39. (copyfiles
  40.       (prompt @copying-MyFont)
  41.       (source MyFont)
  42.       (dest @target-dir)
  43.       (infos)
  44. )
  45.  
  46. (startup
  47.       ("MyFont"
  48.       (prompt #fixing-ss)
  49.       (help #startup-help)
  50.       (command (cat @target-dir"MyFont"))
  51.       )
  52. )
  53.